home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / yam_i_dodatki / yamexpansion19de / bonus / ransign.yarexx
Text File  |  1997-08-04  |  2KB  |  66 lines
  1. /* ------------------------------------------------made-in-arexx-- */
  2. /* |                    - RanSign.yarexx -                       | */
  3. /* |                 by Diego 'dx0' de Felice                    | */
  4. /* |                                                             | */
  5. /* |         appends a random text-file to the email             | */
  6. /* |               (needs rexxsupport.library)                   | */
  7. /* |                                                             | */
  8. /* |         contact me at <d.defelice@ba.nettuno.it>            | */
  9. /* |                     for bugreporting                        | */
  10. /* ---------------------------------------------------------1997-- */
  11.  
  12. options results
  13.  
  14. askb0='Are you sure you want to modify'
  15. askb1='email ?'
  16. suff0='a Sent'
  17. suff1='an Incoming'
  18. suff2='an Archived'
  19. addlib('rexxsupport.library',0,-30)
  20. listarande=SHOWDIR('yamexpansion:ransigns')
  21.  
  22. address 'YAM'
  23.  
  24. getfolderinfo NUMBER
  25. cartella=result
  26.  
  27. if cartella=0 then do
  28.                  'request "'askb0 suff1 askb1'" "_Yes I want|_No sorry"'
  29.                  if result=0 then exit end
  30.                  end
  31.  
  32. if cartella=2 then do
  33.                  'request "'askb0 suff0 askb1'" "_Yes I want|_No sorry"'
  34.                  if result=0 then exit end
  35.                  end
  36.  
  37. if cartella>2 then do
  38.                  'request "'askb0 suff2 askb1'" "_Yes I want|_No sorry"'
  39.                  if result=0 then exit end
  40.                  end
  41.  
  42. quanterande=words(listarande)                  /* File random da appendere */
  43. randa=random(1,quanterande,time(s))
  44. filoccio='yamexpansion:ransigns/' || word(listarande,randa)
  45. call open(angela,filoccio,'R')
  46.  
  47. getmailinfo file                               /* File a cui appendere */
  48. call open(carmela,result,'A')
  49.  
  50. writeln(carmela,'')
  51. writeln(carmela,'')
  52. writeln(carmela,'--')
  53. writeln(carmela,'')
  54.  
  55. do until EOF(angela)                           /* Riempe l'email */
  56.                     lineazza=readln(angela)
  57.                     writeln(carmela,lineazza)
  58. end
  59.  
  60. call close(carmela)                            /* Chiusura dei file */
  61. call close(angela)
  62. mailupdate
  63.  
  64. exit
  65.  
  66.